﻿


Namespace YahooManaged.Finance

    Public Class CompanyProfileData
        Implements ISettableID
        Private mID As String = String.Empty
        Public ReadOnly Property ID As String Implements IID.ID
            Get
                Return mID
            End Get
        End Property
        Public Sub SetID(ByVal id As String) Implements ISettableID.SetID
            mID = id
        End Sub
        Public Property CompanyName As String = String.Empty
        Public Property Address As String = String.Empty
        Public Property BusinessSummary As String = String.Empty
        Public Property CorporateGovernance As String = String.Empty
        Public Property CompanyWebsites As Uri() = New Uri() {}
        Public Property Details As CompanyDetails = New CompanyDetails
        Public Property KeyExecutives As ExecutivePersonInfo() = New ExecutivePersonInfo() {}
    End Class

    Public Class CompanyDetails
        Public Property IndexMembership As KeyValuePair(Of String, String)() = New KeyValuePair(Of String, String)() {}
        Public Property Sector As Nullable(Of Sector)
        Public Property Industry As Nullable(Of Industry)
        Public Property FullTimeEmployees As Integer = 0
    End Class

    Public Class ExecutivePersonInfo
        Public Property Name As String = String.Empty
        Public Property Age As Integer = 0
        Public Property Position As String = String.Empty
        Public Property Pay As Double = 0
        Public Property Exercised As Integer = 0
    End Class


End Namespace